1 REM *********************************
2 REM *********************************
3 REM **     AUTOSTART C64  PLUS     **
4 REM **-----------------------------**
5 REM **  WRITTEN 1984 BY JAN KUSCH  **
6 REM **     (C) BY SPS-SOFTWARE     **
7 REM *********************************
8 REM *********************************
9 REM
100 POKE643,PEEK(45):POKE55,PEEK(45):POKE644,PEEK(46)+3:POKE56,PEEK(46)+3:CLR
101 PRINT"	[147]  *  *  *  [193]UTOSTART [195]64 [208]LUS  *  *  *  "
102 C$="                                      ":O$=CHR$(0)
103 PRINT"[196]ATACHECKING[157][157][157][157][157][157][157][157][157][157][157][157]";:             GOSUB142
104 RESTORE:OPEN15,8,15:FORX=0TO112:READA:POKE828+X,A:NEXT
105 A$="[197]NTER [211]OURCEFILENAME":GOSUB133:SF$=T$
106 A$="[197]NTER [212]ARGETFILENAME":GOSUB133:TF$=T$
107 PRINT"":A$="[194]ASICPROGRAMM ":GOSUB138:BA$=T$
108 IFBA$="J"THENPRINT""C$:PRINTC$:SA=42926:NF$="N":GOTO111
109 PRINT:A$="[211]TARTADRESSE ":GOSUB140:SA=T:IFSA>65535THENPRINT"[145][145][145]":GOTO109
110 A$="[206]EWFLAG":GOSUB138:NF$=T$
111 PRINT:A$="[210]ESTOREPROTECT":GOSUB138:RS$=T$
112 A$="[211]TOPPROTECT   ":GOSUB138:SS$=T$
113 PRINT"[195]ODEWORD            ";:CW$="":INPUTCW$
114 IFLEN(CW$)>10THENPRINT"[145][145]":GOTO113
115 PRINT"":A$="[197]NTERY CORRECT":GOSUB138:IFT$="N"THENPRINT"":GOTO105
116 PRINT:FORX=1TO40:PRINT"-";:NEXT:INPUT"[201]NSERT [211]OURCE-[196]ISK";T$
117 PRINT"[145]"C$:PRINT"[145][204]OADING:";:OPEN1,8,2,SF$+",P,R":GET#1,L1$,L2$
118 GOSUB135:SYS831:GOSUB135:CLOSE1:INPUT"[146][201]NSERT [212]ARGET-[196]ISK";T$
119 PRINT"[145]"C$:PRINT"[145][211]AVING :";:OPEN1,8,2,"@:"+TF$+",P,W":GOSUB135
120 FORX=0TO257:READA:PRINT#1,CHR$(A);:NEXT
121 S1=INT(SA/256):S2=SA-S1*256:PRINT#1,CHR$(S2);CHR$(S1);
122 A0=ASC(L1$+O$)+ASC(L2$+O$)*256:A1=PEEK(251)+PEEK(252)*256
123 A2=1+PEEK(643)+PEEK(644)*256:A3=(A1-A2)+A0:P1=INT(A3/256):P2=A3-P1*256
124 PRINT#1,CHR$(P2);CHR$(P1);
125 A=237:IFRS$="J"THENA=225
126 PRINT#1,CHR$(A);:A=49:IFSS$="J"THENA=52
127 PRINT#1,CHR$(A);:A=0:IFNF$="J"THENA=1
128 PRINT#1,CHR$(A);:IFCW$=""THENPRINT#1,CHR$(0)"1234567890";:GOTO130
129 PRINT#1,CW$CHR$(0);:IFLEN(CW$)<10THENPRINT#1,LEFT$(C$,10-LEN(CW$));
130 SYS828:GOSUB135:CLOSE1:PRINT:A$="[210]ESTART [208]ROGRAMM":GOSUB138:CLOSE15
131 IFT$="J"THENRUN
132 SYS64738
133 T$="":PRINTA$;:INPUTT$:IFT$=""ORLEN(T$)>16THENPRINT"[145][145]":GOTO133
134 RETURN
135 INPUT#15,A,B$,C,D:PRINT""A;B$;C;D,
136 IFA<2THENRETURN
137 FORX=1TO15:CLOSE1:NEXT:PRINT:PRINT"?[196]ISK-[197]RROR";:FORX=1TO5000:NEXT:RUN
138 T$="":PRINTA$" (J/N)";:INPUTT$:IFT$<>"J"ANDT$<>"N"THENPRINT"[145][145]":GOTO138
139 RETURN
140 T$="":PRINTA$;:INPUTT$:T=VAL(T$):IFT$=""ORT=0THENPRINT"[145][145]":GOTO140
141 RETURN
142 P1=15862:S=0:FORX=0TO112:READA:S=S+A:NEXT:IFS<>P1THEN144
143 P2=32966:P=1:S=0:FORX=0TO257:READA:S=S+A:NEXT:IFS=P2THENRETURN
144 PRINT"?DATAERROR"P+1,"PRUEFSUMME:"S
145 DATA 76, 121, 3, 173, 131, 2, 24, 105, 1
146 DATA 133, 251, 173, 132, 2, 105, 0, 133, 252, 162, 1
147 DATA 32, 198, 255, 169, 253, 37, 144, 133, 144, 32, 225
148 DATA 255, 32, 207, 255, 160, 48, 120, 132, 1, 160, 0
149 DATA 145, 251, 160, 55, 132, 1, 88, 36, 144, 112, 57
150 DATA 230, 251, 208, 222, 230, 252, 208, 218, 162, 1, 32
151 DATA 201, 255, 160, 48, 120, 132, 1, 160, 0, 177, 251
152 DATA 160, 55, 132, 1, 88, 73, 255, 32, 210, 255, 32
153 DATA 225, 255, 165, 251, 208, 2, 198, 252, 198, 251, 165
154 DATA 251, 205, 131, 2, 208, 219, 165, 252, 205, 132, 2
155 DATA 208, 212, 76, 204, 255
156 REM
157 REM
158 DATA 168, 2, 238, 32, 208, 76, 168, 2, 174, 170, 3
159 DATA 134, 174, 172, 171, 3, 132, 175, 134, 45, 132, 46
160 DATA 32, 112, 3, 144, 251, 32, 239, 237, 32, 66, 246
161 DATA 169, 0, 141, 6, 128, 32, 21, 253, 32, 83, 228
162 DATA 173, 173, 3, 141, 20, 3, 173, 172, 3, 141, 40
163 DATA 3, 173, 174, 3, 240, 3, 32, 68, 166, 169, 0
164 DATA 76, 152, 3, 3, 255, 165, 174, 201, 186, 240, 65
165 DATA 96, 83, 80, 83, 32, 83, 79, 70, 84, 87, 65
166 DATA 82, 69, 139, 227, 131, 164, 124, 165, 26, 167, 228
167 DATA 167, 134, 174, 1, 2, 3, 50, 76, 72, 178, 0
168 DATA 49, 234, 102, 254, 168, 2, 74, 243, 145, 242, 14
169 DATA 242, 80, 242, 51, 243, 87, 241, 202, 241, 237, 2
170 DATA 62, 241, 47, 243, 102, 254, 165, 244, 237, 245, 162
171 DATA 10, 189, 143, 3, 157, 0, 128, 202, 208, 247, 169
172 DATA 0, 133, 153, 170, 134, 198, 134, 251, 189, 175, 3
173 DATA 240, 17, 32, 62, 241, 240, 251, 166, 251, 221, 175
174 DATA 3, 208, 230, 232, 230, 251, 208, 234, 170, 160, 245
175 DATA 238, 32, 208, 238, 33, 208, 232, 208, 247, 200, 208
176 DATA 244, 76, 174, 2, 169, 253, 37, 144, 133, 144, 32
177 DATA 19, 238, 73, 255, 160, 0, 145, 174, 165, 174, 208
178 DATA 2, 198, 175, 198, 174, 36, 144, 80, 2, 56, 36
179 DATA 24, 96, 168, 2, 168, 2, 195, 194, 205, 56, 48
180 DATA 141, 0, 8, 32, 113, 168, 32, 51, 165, 32, 167
181 DATA 3, 76, 84, 168, 76